home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 58
/
058side1.d64
/
loadstar forms
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-29
|
1KB
|
56 lines
5 poke147,0:sys57812"subscribe form",8,1:sys62631
10 poke53280,1:poke53281,1
11 printchr$(142)"[147][152]"
12 print" [221][215][221]"spc(31)"[221][215][221]"
13 print" [221]-[221]-------------------------------[221]-[221]"
14 fori=0to8
15 print" [221][215][221]"spc(31)"[221][215][221]"
16 print" [221] [221]"spc(31)"[221] [221]"
17 next
18 print" [221][215][221]"spc(31)"[221][215][221]"
19 print" [221]-[221]-------------------------------[221]-[221]"
20 print" [221][215][221]"spc(31)"[221][215][221]"
25 print""tab(10)"[152]loadstar forms printer"
26 printtab(10)"[152]-------- ----- -------"
30 printtab(8)"1) [151]print submission form"
40 printtab(8)"[152]2) [151]print subscription form"
50 printtab(8)"[152]3) [151]return to loadstar":poke198,.
55 printtab(8)" [152]press 1, 2 or 3."
60 geta$:ifa$<"1"ora$>"3"then60
70 ifa$="2"then2000
80 ifa$="3"then60000
90 :
1000 gosub3000:ifnot(ok)then10
1010 gosub4000:if(ab)then10
1020 open4,4,7:open3,8,3,"submission form":print#4," ";
1030 fori=.to1:get#3,a$:i=st
1040 ifa$=chr$(13)thenprint#4:print#4," ";:goto1060
1050 print#4,a$;
1060 next:close3
1070 fora=1to7:print#4:next
1080 close4:goto10
1090 :
2000 gosub3000:ifok=0then10
2010 gosub4000:if(ab)then10
2020 open4,4,7:sys51137,32768:print#4
2030 close4:goto10
2040 :
3000 ok=0:open15,4,15:close15
3010 ifst=0thenok=1:return
3030 print"error: printer not ready!"
3040 fora=1to2000:next:return
3050 :
4000 print"set printer to top of paper "
4010 print" press space to print"
4015 print" or a to abort"
4020 a=peek(203):ifa<>60anda<>10then4020
4030 ab=.:ifa=10thenab=-1
4040 return
4050 :
60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
60010 ifer<>63thenend
60020 print"[147]":poke53281,7
60030 print"[158]load"chr$(34)"hello connect"chr$(34)",8"
60040 print"run"
60050 poke631,13:poke632,13:poke198,2